inherited FrmInfo: TFrmInfo Left = 317 Top = 115 Width = 707 Height = 631 HelpContext = 1040 Caption = 'FrmInfo' OldCreateOrder = True PixelsPerInch = 96 TextHeight = 13 inherited sb: TTBXStatusBar Top = 578 Width = 699 end object cxGrid: TcxGrid [1] Left = 0 Top = 0 Width = 699 Height = 578 Align = alClient TabOrder = 1 object cxGridDBTableView: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False OnCellClick = cxGridDBTableViewCellClick DataController.DataSource = dsMemData DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnHiding = True OptionsData.Deleting = False OptionsData.DeletingConfirmation = False OptionsData.Editing = False OptionsData.Inserting = False OptionsView.ColumnAutoWidth = True OptionsView.GroupByBox = False OptionsView.Header = False Styles.StyleSheet = dtmSession.cxGridTableViewStyleSheet OnCustomDrawGroupCell = cxGridDBTableViewCustomDrawGroupCell object cxGridDBTableViewRecId: TcxGridDBColumn DataBinding.FieldName = 'RecId' Visible = False end object cxGridDBTableViewgroupe: TcxGridDBColumn DataBinding.FieldName = 'groupe' Visible = False GroupIndex = 0 SortIndex = 0 SortOrder = soAscending Width = 74 end object cxGridDBTableViewcode: TcxGridDBColumn DataBinding.FieldName = 'code' OnCustomDrawCell = cxGridDBTableViewcodeCustomDrawCell Width = 70 end object cxGridDBTableViewvalue: TcxGridDBColumn DataBinding.FieldName = 'value' Width = 165 end object cxGridDBTableViewcodeloc: TcxGridDBColumn DataBinding.FieldName = 'codeloc' Visible = False Width = 61 end object cxGridDBTableViewcodeemprunteur: TcxGridDBColumn DataBinding.FieldName = 'codeemprunteur' Visible = False Width = 61 end object cxGridDBTableViewcodefilm: TcxGridDBColumn DataBinding.FieldName = 'codefilm' Visible = False Width = 66 end object cxGridDBTableViewnomfilm: TcxGridDBColumn DataBinding.FieldName = 'nomfilm' Visible = False end end object cxGridLevel: TcxGridLevel GridView = cxGridDBTableView end end inherited aclFiche: TActionList Left = 48 Top = 112 object ActionRecupFilm: TAction [0] Caption = 'R'#233'cup'#233'rer Film' ImageIndex = 3 OnExecute = ActionRecupFilmExecute end end object PopupMenu: TPopupMenu Images = ImageListSmall Left = 272 Top = 248 object Action11: TMenuItem Action = ActionRecupFilm end end object dxMemData: TdxMemData Indexes = <> SortOptions = [] Left = 488 Top = 88 object dxMemDatagroupe: TStringField FieldName = 'groupe' Size = 150 end object dxMemDatacode: TStringField FieldName = 'code' Size = 300 end object dxMemDatavalue: TStringField FieldName = 'value' Size = 300 end object dxMemDatacodeloc: TIntegerField FieldName = 'codeloc' end object dxMemDatacodeemprunteur: TIntegerField FieldName = 'codeemprunteur' end object dxMemDatacodefilm: TIntegerField FieldName = 'codefilm' end object dxMemDatanomfilm: TStringField FieldName = 'nomfilm' Size = 255 end end object dsMemData: TDataSource DataSet = dxMemData Left = 408 Top = 144 end object TBXPopupMenu: TTBXPopupMenu Left = 424 Top = 240 object TBXItem2: TTBXItem Action = ActionRecupFilm end end end